### Exerccios Introduo ###

### Basta Mudar o Diretrio

getwd() ### verificando diretrio atual
setwd("C:/Users/Fabio Caltabellotta/Documents/Aulabie5782") ### alterando diretrio
getwd() ### verificando diretrio alterado
load(file="letras.RData") ### carregando objeto na Workspace


### Um Comando Perigoso

rm(list=ls()) ### apaga tudo
ls() ### lista os objetos na workspace
load(file="letras.RData") ### carrega novamente a rea de trabalho na Workspace


### Remoo com Critrio

load("C:/Users/Fabio Caltabellotta/Downloads/bichos.rdata") ### carrega objeto no workspace
ls()### lista os objetos na workspace 
rm(temp1, temp2, temp3) ### remove somente os temp1, temp2 e temp3
ls() ### lista os objetos na workspace

### ou

load("C:/Users/Fabio Caltabellotta/Downloads/bichos.rdata") ### carrega objeto no workspace
ls() ### lista os objetos na workspace
rm(list=ls(pattern="temp")) ### remove todos os temp
ls() ### lista os objetos na workspace

### Classe de Objetos

letters
LETTERS
class(letters) ### Classe do objeto "character"
class(LETTERS) ### Classe do objeto "character"
letters.factor <- as.factor(letters) ### Transformando objeto letters em factor
LETTERS.factor <- as.factor(LETTERS) ### Transformando objeto letters em factor
class(letters.factor) ### Mostra a classe do objeto "factor"
class(LETTERS.factor) ### Mostra a classe do objeto "factor"

### Objetos de Data

hoje <- Sys.Date() 
class(hoje) ### Mostra a classe do objeto "Date"
copa.70 <- "21/07/70"
copa.70 <- as.Date(copa.70,format="%d/%m/%y") ### Transforma objeto em Date
class(copa.70) ### Mostra a classe do objeto "Date"
hoje - copa.70 ### 1486 dias dos grandes tempos Zagallo
hoje + 43 ### 06/05/11

